(import (chicken format))

;; https://api.call-cc.org/5/doc/chicken/format

(printf "Hello\n")

(define (gcd a b)
  (printf "TRACE\tgcd ~S ~S\n" a b)

  (if (= b 0)
    a
    (gcd b (remainder a b))))

(printf "INFO\tgcd = ~S\n" (gcd 120 60))
